home *** CD-ROM | disk | FTP | other *** search
/ Clipper Collection / Clipper Collection.iso / clipper7 / nannws22.arc / TISDIR.PRG < prev    next >
Text File  |  1987-12-08  |  679b  |  29 lines

  1. * Program Name: tisdir.prg *
  2. * Author: Don L. Powells *
  3. * (c) 1987 by Nantucket Corp. *
  4. * This program tests and demonstrates the ISDIR() assembly
  5. * language UDF.
  6.  
  7. clear
  8. ? "                 Testing the isdir() assembly function"
  9. ?
  10. ? "Press <ESC> to quit."
  11. mpath=space(64)
  12. do while lastkey() != 27
  13.    @ 5,0 say "Enter directory path:" 
  14.    @ 6,0 get mpath picture "@k"
  15.    read
  16.    mpath = trim(mpath)
  17.    if isdir(mpath)
  18.       @ 23,1
  19.       @ 23,1 say "Directory exists!"
  20.    else
  21.       @ 23,1
  22.       @ 23,1 say "Directory does not exist!"
  23.    endif
  24.    @ 24,1 say "Press any key to continue."
  25.    inkey(0)
  26.    mpath = mpath + space(64-len(mpath))
  27. enddo
  28. return
  29.